home *** CD-ROM | disk | FTP | other *** search
/ Basic Instinct 2 Press Kit / Basic Instinct 2 Press Kit.iso / pc / main.dxr / assets_23.ls < prev    next >
Encoding:
Text File  |  2006-03-15  |  957 b   |  28 lines
  1. global gDebugTimer, gDebugTicks, gDubugText, gTracker
  2.  
  3. on exitFrame me
  4.   if the timer > (gDebugTimer + gDebugTicks) then
  5.     member("debugText").text = "Coldfusion has not sent back any data"
  6.   else
  7.     theVar = sprite(8).getVariable("pDebugResults", 0)
  8.     if theVar <> "no" then
  9.       if theVar = VOID then
  10.         nothing()
  11.       else
  12.         vText = "------- Info sent to Coldfusion ---------" & RETURN
  13.         v1 = "session ID: " & gTracker.pGeneralList.sessionID & RETURN
  14.         v2 = "pressKit ID: " & gTracker.pGeneralList.pkID & RETURN
  15.         v3 = "StartDateTime ID: " & gTracker.pGeneralList.startDateTime & RETURN
  16.         put v1 after vText
  17.         put v2 after vText
  18.         put v3 & RETURN after vText
  19.         put "------- Info Received back from Coldfusion ---------" & RETURN after vText
  20.         put theVar after vText
  21.         member("debugText").text = vText
  22.         go(the frame + 1)
  23.       end if
  24.     end if
  25.     go(the frame)
  26.   end if
  27. end
  28.